home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software of the Month Club 1996 August
/
Software of the Month Club 1996 August.iso
/
pc
/
os2
/
famtree
/
abc_list.ftx
next >
Wrap
Text File
|
1996-05-24
|
2KB
|
63 lines
/*
Family Tree Rexx Script FTX
Copyright (C) 1996 by <Nils Meier>
Please send comments to / Kommentar bitte an
meier2@athene.informatik.uni-bonn.de
<This script displays an ordered list of all persons in the family tree
/ Dieses Skript zeigt eine alphabetische Liste aller Menschen im Stammbaum>
*/
/* ----------------------- Params / Parameter ------------------- */
namewidth=30
IF getLanguage()='Deutsch' THEN DO
header = 'Alphabetische Liste. Heute ist der '
END
ELSE DO
header = 'Alphabetical List - Today is :'
END
/* ----------------- Display Header / Kopf der Ausgabe ------------- */
SAY(header||DATE())
SAY('.............................................')
/* ------------------------------ Output / Ausgabe ----------------- */
/* Sort Persons by Name,FirstName / Menschen nach Name,Vorname sortieren */
rc=sortPersons('N,F')
/* Display persons in tree / Zeige die Menschen an */
rc=selectPerson('F')
DO UNTIL RC=0
/* Calc Name,FirstName / Berechne Name,Vorname */
result=getName()
firstname=getFirstName()
IF LENGTH(firstname)>0 THEN result=result||','||firstname
result=LEFT(result,namewidth)
/* Calc Dates / Berechne Daten */
birth=getBirthDate()
IF length(birth)>0 THEN result=result||' *'||birth||' '
death=getDeathDate()
IF length(death)>0 THEN result=result||'+'||death
/* Output / Ausgabe */
SAY(result)
/* Next one / Naechster */
rc=selectPerson('N')
END
/* Done / Fertig */
RETURN